home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 131 / XENIATGM131.iso / Shareware / openOffice.org 641 / Windows / f_0017 / Language.xba < prev    next >
Extensible Markup Language  |  2001-11-22  |  10KB  |  257 lines
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
  3.  <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit
  4.  
  5.  
  6. Global Const RID_COMMON    = 1000
  7. Global Const RID_FORM    = 2200
  8.  
  9. Public Const SBCANCEL = 2
  10. Public Const SBREPEAT = 4
  11. Public LabelDiffHeight as Long
  12.  
  13. Public WizardTitle(1 To 3) as String
  14. Public DlgFormDB as Object
  15. Public oDialogModel as Object
  16.  
  17. Dim sMsgWizardName as String
  18. Dim sMsgErrMsg as String
  19. Dim sMsgErrFormOpen as String
  20. Dim sMsgErrNoDatabase as String
  21. Dim sMsgErrNoTableInDatabase as String
  22. Dim sMsgErrTitleSuggestedExist as String
  23. Dim sMsgErrTitleSyntaxError as String
  24. Dim sMsgErrTitleAsTableExist as String
  25. Dim sMsgProgressText as String
  26. Dim sMsgCreatedForm as String
  27. Dim sMsgErrCouldNotOpenObject as String
  28. Dim sMsgErrNameToLong as String
  29.  
  30. Dim sTimeAppendix as String
  31. Dim sDateAppendix as String
  32.  
  33. Public sGoOn as String
  34. Public sReady as String
  35. Public sMsgNoConnection as String
  36. Public sWriterFilterName as String        
  37. Public XPixelFactor as Long        
  38. Public YPixelFactor as Long
  39.  
  40.  
  41. Sub LoadLanguage ()
  42.     sMsgWizardName = GetResText(RID_FORM + 0)
  43.     sMsgErrMsg = GetResText(RID_COMMON + 6)
  44.     sMsgErrFormOpen = GetResText(RID_COMMON + 7)
  45.     sMsgErrNoDatabase = GetResText(RID_COMMON + 8)
  46.     sMsgErrNoTableInDatabase = GetResText(RID_COMMON + 9)
  47.     sMsgErrTitleSuggestedExist = GetResText(RID_COMMON + 10)
  48.     sMsgErrTitleAsTableExist = GetResText(RID_COMMON + 10)
  49.     sMsgErrTitleSyntaxError = GetResText(RID_COMMON + 11)
  50.     sMsgNoConnection = GetResText(RID_COMMON + 14
  51.     sMsgProgressText = GetResText(RID_FORM + 2)
  52.     sMsgCreatedForm = GetResText(RID_FORM + 26)
  53.     sMsgErrNameToLong = GetResText (RID_FORM + 27)
  54.     sMsgErrCouldNotOpenObject = GetResText (RID_COMMON + 13)
  55.  
  56.     '    Internal Logic
  57.     sDateAppendix = GetResText(RID_FORM + 4)
  58.     sTimeAppendix = GetResText(RID_FORM + 5)
  59.     
  60.     sReady = GetResText(RID_COMMON + 0)
  61.     SetDialogLanguage()
  62. End Sub
  63.  
  64.  
  65. Sub SetDialogLanguage ()
  66.     DlgFormDB = LoadDialog("FormWizard", "DlgFormDB")
  67.     oDialogModel = DlgFormDB.Model
  68.  
  69.     With oDialogModel
  70.         .cmdCancel.Label = GetResText(RID_COMMON + 1)
  71.         .cmdBack.Label = GetResText(RID_COMMON + 2)
  72.         .cmdHelp.Label = GetResText(RID_COMMON + 20)
  73.         sGoOn = GetResText(RID_COMMON + 3)
  74.         .cmdGoOn.Label = sGoOn
  75.         .lblDatabases.Label = GetResText(RID_FORM + 11)
  76.         .lblTables.Label = GetResText(RID_FORM + 6)
  77.  
  78.         .lblFields.Label = GetResText(RID_FORM + 12)
  79.         .lblSelFields.Label = GetResText(RID_FORM + 13)
  80.  
  81.         .lblStyles.Label = GetResText(RID_FORM + 21)
  82.         .hlnBorderLayout.Label = GetResText(RID_FORM + 28)
  83.         .hlnAlign.Label = GetResText(RID_FORM + 32)
  84.         .hlnArrangements.Label = GetResText(RID_FORM + 35)
  85.  
  86.         WizardTitle(1) = sMsgWizardName & " - " & GetResText(RID_FORM + 45)
  87.         WizardTitle(2) = sMsgWizardName & " - " & GetResText(RID_FORM + 46)
  88.         WizardTitle(3) = sMsgWizardName & " - " & GetResText(RID_FORM + 47)
  89.  
  90.         .hlnBinaries.Label = GetResText(RID_FORM + 50)
  91.         .optIgnoreBinaries.Label = GetResText(RID_FORM + 51)
  92.         .optBinariesasGraphics.Label = GetResText(RID_FORM + 52)
  93.     
  94.         .hlnBackground.Label = GetResText(RID_FORM + 55)
  95.         .optTiled.Label = GetResText(RID_FORM + 56)
  96.         .optArea.Label = GetResText(RID_FORM + 57)
  97.  
  98.         .optBorder0.Label = GetResText(RID_FORM + 29)
  99.         .optBorder1.Label = GetResText(RID_FORM + 30)
  100.         .optBorder2.Label = GetResText(RID_FORM + 31)
  101.         .optBorder1.State = 1
  102.         
  103.         .optAlign0.Label = GetResText(RID_FORM + 33)
  104.         .optAlign2.Label = GetResText(RID_FORM + 34)
  105.         .optAlign0.State = 1
  106.         
  107.         .cmdArrange1.ImageURL = FormPath & "Arrange_1.gif"
  108.         .cmdArrange1.HelpText = GetResText(RID_FORM + 36)
  109.     
  110.         .cmdArrange2.ImageURL = FormPath & "Arrange_2.gif"
  111.         .cmdArrange2.HelpText = GetResText(RID_FORM + 37)
  112.  
  113.         .cmdArrange3.ImageURL = FormPath & "Arrange_3.gif"
  114.         .cmdArrange3.HelpText = GetResText(RID_FORM + 40)
  115.  
  116.         .cmdArrange4.ImageURL = FormPath & "Arrange_4.gif"
  117.         .cmdArrange4.HelpText = GetResText(RID_FORM + 38)
  118.  
  119.         .cmdArrange5.ImageURL = FormPath & "Arrange_5.gif"
  120.         .cmdArrange5.HelpText = GetResText(RID_FORM + 39)
  121.  
  122.         sWriterFilterName = GetResText(RID_FORM + 70)
  123.     End With
  124. End Sub
  125.  
  126.  
  127.  
  128. Sub InitializeWidthList()
  129.  
  130. '  'Currency' ist ein Flag, dass grunds├ñtzlich an jedes Feld angeh├ñngt sein kann.
  131. ' An der Connection kann man irgendwie abfragen, ob ein bestimmter Datentyp als W├ñhrung 
  132. ' interpretiert wird. Darstellung ├╝ber Numberformatter. Ist nicht konsistent ├╝ber Datenbanken.
  133. ' au├ƒerdem d├╝rften hier einige Treiber auch buggy sein.
  134.  
  135.     If Ubound(WidthList(),1) > 15 Then
  136.         ReDim WidthList(15,4)
  137.     End If
  138.  
  139.     WidthList(0,0) = com.sun.star.sdbc.DataType.BIT               ' = -7;
  140.     WidthList(0,1) = cCheckbox
  141.     WidthList(0,2) = False
  142.     WidthList(0,3) = "CheckBox"
  143.  
  144.     WidthList(1,0) = com.sun.star.sdbc.DataType.TINYINT            ' =  -6;
  145.     WidthList(1,1) = cNumericBox
  146.     WidthList(1,2) = False
  147.     WidthList(1,3) = "FormattedField"
  148.     
  149.     WidthList(2,0) = com.sun.star.sdbc.DataType.SMALLINT        ' =   5;
  150.     WidthList(2,1) = cNumericBox
  151.     WidthList(2,2) = False
  152.     WidthList(2,3) = "FormattedField"
  153.     
  154.     WidthList(3,0) = com.sun.star.sdbc.DataType.INTEGER            ' =   4;
  155.     WidthList(3,1) = cNumericBox
  156.     WidthList(3,2) = False
  157.     WidthList(3,3) = "FormattedField"
  158.     
  159.     WidthList(4,0) = com.sun.star.sdbc.DataType.BIGINT            ' =  -5;
  160.     WidthList(4,1) = cNumericBox
  161.     WidthList(4,2) = False
  162.     WidthList(4,3) = "FormattedField"
  163.     
  164.     WidthList(5,0) = com.sun.star.sdbc.DataType.FLOAT            ' =   6;
  165.     WidthList(5,1) = cNumericBox
  166.     WidthList(5,2) = False
  167.     WidthList(5,3) = "FormattedField"
  168.     
  169.     WidthList(6,0) = com.sun.star.sdbc.DataType.REAL            ' =   7;
  170.     WidthList(6,1) = cNumericBox
  171.     WidthList(6,2) = False
  172.     WidthList(6,3) = "FormattedField"
  173.     
  174.     WidthList(7,0) = com.sun.star.sdbc.DataType.DOUBLE            ' =   8;
  175.     WidthList(7,1) = cNumericBox
  176.     WidthList(7,2) = False
  177.     WidthList(7,3) = "FormattedField"
  178.     
  179.     WidthList(8,0) = com.sun.star.sdbc.DataType.NUMERIC            ' =   2;
  180.     WidthList(8,1) = cNumericBox
  181.     WidthList(8,2) = False
  182.     WidthList(8,3) = "FormattedField"
  183.     
  184.     WidthList(9,0) = com.sun.star.sdbc.DataType.DECIMAL            ' =   3;  (mit Nachkommastellen)
  185.     WidthList(9,1) = cNumericBox
  186.     WidthList(9,2) = False
  187.     WidthList(9,3) = "FormattedField"
  188.     
  189.     WidthList(10,0) = com.sun.star.sdbc.DataType.CHAR            ' =   1;
  190.     WidthList(10,1) = cTextBox
  191.     WidthList(10,2) = False
  192.     WidthList(10,3) = "TextField"
  193.  
  194.     WidthList(11,0) = com.sun.star.sdbc.DataType.VARCHAR        ' =  12;
  195.     WidthList(11,1) = cTextBox
  196.     WidthList(11,2) = True
  197.     WidthList(11,3) = "TextField"
  198.     
  199.     WidthList(12,0) = com.sun.star.sdbc.DataType.LONGVARCHAR    ' =  -1;
  200.     WidthList(12,1) = cTextBox
  201.     WidthList(12,2) = True
  202.     WidthList(12,3) = "TextField"
  203.  
  204.     WidthList(13,0) = com.sun.star.sdbc.DataType.DATE            ' =  91;
  205.     WidthList(13,1) = cDateBox
  206.     WidthList(13,2) = False
  207.     WidthList(13,3) = "DateField"
  208.     
  209.     WidthList(14,0) = com.sun.star.sdbc.DataType.TIME            ' =  92;
  210.     WidthList(14,1) = cTimeBox
  211.     WidthList(14,2) = False
  212.     WidthList(14,3) = "TimeField"
  213.     
  214.     WidthList(15,0) = com.sun.star.sdbc.DataType.TIMESTAMP        ' =  93;
  215.     WidthList(15,1) = cDateBox
  216.     WidthList(15,2) = False
  217.     WidthList(15,3) = "DateField"
  218.  
  219.     ImgWidthList(0,0) = com.sun.star.sdbc.DataType.BINARY            ' =  -2;
  220.     ImgWidthList(0,1) = cImageControl
  221.     ImgWidthList(0,2) = False
  222.     ImgWidthList(0,3) = "ImageControl"
  223.     
  224.     ImgWidthList(1,0) = com.sun.star.sdbc.DataType.VARBINARY        ' =  -3;
  225.     ImgWidthList(1,1) = cImageControl
  226.     ImgWidthList(1,2) = False
  227.     ImgWidthList(1,3) = "ImageControl"
  228.  
  229.     ImgWidthList(2,0) = com.sun.star.sdbc.DataType.LONGVARBINARY    ' =  -4;
  230.     ImgWidthList(2,1) = cImageControl
  231.     ImgWidthList(2,2) = False
  232.     ImgWidthList(2,3) = "ImageControl"
  233.  
  234.     ImgWidthList(3,0) = com.sun.star.sdbc.DataType.BLOB            ' = 2004;
  235.     ImgWidthList(3,1) = cImageControl
  236.     ImgWidthList(3,2) = False
  237.     ImgWidthList(3,3) = "ImageControl"
  238.  
  239. ' Note: the following Fieldtypes cannot be presented
  240. 'ExcludeList(0) = com.sun.star.sdbc.DataType.SQLNULL
  241. 'ExcludeList(1) = com.sun.star.sdbc.DataType.OTHER
  242. 'ExcludeList(2) = com.sun.star.sdbc.DataType.OBJECT
  243. 'ExcludeList(3) = com.sun.star.sdbc.DataType.DISTINCT
  244. 'ExcludeList(4) = com.sun.star.sdbc.DataType.STRUCT
  245. 'ExcludeList(5) = com.sun.star.sdbc.DataType.ARRAY
  246. 'ExcludeList(6) = com.sun.star.sdbc.DataType.CLOB
  247. 'ExcludeList(7) = com.sun.star.sdbc.DataType.REF
  248.  
  249.     oModelService(cLabel) = "com.sun.star.form.component.FixedText"
  250.     oModelService(cTextBox) = "com.sun.star.form.component.TextField"
  251.     oModelService(cCheckBox) = "com.sun.star.form.component.CheckBox"
  252.     oModelService(cDateBox) = "com.sun.star.form.component.DateField"
  253.     oModelService(cTimeBox) = "com.sun.star.form.component.TimeField"
  254.     oModelService(cNumericBox) = "com.sun.star.form.component.FormattedField"
  255.     oModelService(cGridControl) = "com.sun.star.form.component.GridControl"
  256.     oModelService(cImageControl) = "com.sun.star.form.component.DatabaseImageControl"
  257. End Sub</script:module>